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Figure 1: Examples of notes with identical MIDI note numbers being spelt differently in different tonal 
contexts (from p. 8 of Piston, W. (1978). Harmony. Victor Gollancz Ltd., London. Revised and expanded 
by Mark DeVoto). 
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Figure 2: Should the Ebs be spelt as Dfls? (From p. 390 of Piston, W. (1978). Harmony. Victor Gollancz 
Ltd., London. Revised and expanded by Mark DeVoto). 
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(a) ) 



(b) 




<2, D4, 2), 
(13, D4, 1>, 
(29, G4, 1), 
(35, D4, 1), 
(44, B4, 1), 
<30, C4, 2), 
(39, A3, 1), 



(4, E4, 2), 
(14, CS4, 1>, 
(30, F4, 1), 
(36, E4, 2), 
(45, A4, 1), 
(32, D4, 2, >, 
(40, F4, 4>, 



(6, F4, 2), 
(15, D4, 1>, 
(31, E4, 1>, 
(38, C5, 3), 
(46, GS4, 1), 
(34, B3, 2>, 
(44, D4, 4> 



(8, G4, 2), 
(16, BF4, 4>, 
(32, G4, 1), 
(41, B4, 1), 
(47, A4, 1), 
(36, C4, 1>, 
} 



(10, E4, 2), 
(20, G4, 4>, 
(33, F4, 1>, 
(42, A4, 1>, 
(26, A3, 2>, 
(37, A3, 1), 



(12, F4, 1), 
(24, A4, 5>, 
(34, E4, 1), 
(43, B4, 1>, 
(28, B3, 2>, 
(38, GS3, 1>, 



Figure 3: (a) Bars 1 to 4 of Bach's Fugue in D minor from Book 1 of Das Wohltemperirte Klavier (BWV 
851). (b) The OPND representation of the score in (a). 
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Cb Gb Db Ab Eb Bb F C G D A E B Ffl Ctf Gjt DJJ Atf EJJ • • • 
Sharpness .---7 —6 -5 -4 —3 —2 -1 0 1 2 3 4 5 6 7 8 9 10 11 • • 



Figure 4: The line of fifths 
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5975475240 
1 1 1 

Figure 5: The first step in Cambouropoulos's method involves converting the input representation into a 
sequence of pitch classes. The music is processed a window at a time. Each window contains 9 notes and 
the first third of each window overlaps the last third of the previous window 
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1 5-(> 

2 <0, 1,1, 2, 2, 3, 3, 4, 5, 5, 6, 6) 

3 for c <— 0 to 11 

4 to 0 <— 0 

5 s^() 
6 

7 for i<-0 to \C\ - 1 

8 s^-se {Q[(C[i] - c) mod 12]) 

9 m 0 <— s[0] 

10 for i <- 0 to |C| — 1 

11 s' <- s' © <(s[i] - ttio) mod 7) 

12 S<-Se(s') 

13 return S 



Figure 6: Algorithm for computing the spelling table S. 



7/15 



1 R<-() 

2 for to \C\ - 1 



3 V <— (0,0,0,0,0,0,0) 

4 M -<) 

5 for k <- 0 to 11 

6 fi<^n® (S[k][i]) 

7 for j <- 0 to 11 

8 S prev «- V[A*|>1] 

10 R<^R<& {P0S(max(V), V)) 



11 return i? 



Figure 7: Algorithm for computing the relative morph Ust R. 
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1 lf«-«O[0]» 

2 f or i <- 1 to \C\ - 1 

3 if O[i][0] = O[i-l][0] 

4 H[\H\ - 1] - if [\H\ - 1] © <0[i]> 

5 else 

6 H <— H ® <(0[z]» 

7 return H 



Figure 8: Algorithm for computing the chord list H. 
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Figure 9: Neighbour note and passing note errors corrected by psl3. 
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1 f or i «- 0 to \H\ - 3 



2 C-<> 

3 for k «- 0 to -4-2)1 — 1 

4 <«-Ce<H[i + 2][*][l,3]) 

5 for nif-Oto \H[i]\ - 1 

6 if H[i][m][l,3]6C 

7 for n 2 <- 0 to \H[i + 1]| - 1 

8 if H[i + l][n 2 ][2]=H[t][m][2] 

9 if (H[i + l][n 2 ][l] - i/[*][m][l]) mod 12 € {1, 2} 

10 H[i + l][n 2 ][2] <- (H[i + l][n 2 ][2] + 1) mod 7 

11 if (ff [i][m][l] - H[i + l][n 2 ][l]) mod 12 G {1, 2} 

12 H[i + l][n 2 ][2] <- + l][n 2 ][2] - 1) mod 7 



13 return if 



Figure 10: Algorithm for correcting neighbour note errors. 
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1 f or i <- 0 to \H\ - 3 



2 for m<-Oto \H[i]\ - 1 

3 for n3 «- 0 to |if[i + 2]| - 1 

4 if if [i + 2][n 3 ][2] = (if [i][m][2] - 2) mod 7 

5 for n 2 ^Oto |if [i + 1]| - 1 

6 if H [i + 1] [n 2 ] [2] = if [t] [m] [2] or if [t + 1] [n 2 ] [2) = if [i + 2] [n 3 ] [2] 

7 if 0 < (H[i][n!][l] - H[i + l][n 2 ][l]) mod 12 < (H [i][m][l] - if [t + 2][n 3 Hl]) mod 12 

8 C«-<> 

9 for j «— 0 to |if[i + l]|-l 

10 if if[t + lib'] [2] = (if [t][m][2] - 1) mod 7 

11 c*-ce(ff[i + ijw> 

12 *«-<> 

13 for j f 4- 0 to |C| - 1 

14 if /rp + i][» 2 ][i]*CM[i] 

15 *«-*e<Cb1> 

16 if 0 = <) 

17 if [i + 1] [n 2 ] [2] <- (if [z] [ni ] [2] - 1) mod 7 



18 return fi 



Figure 11: Algorithm for correcting descending passing note errors. 



12/15 



1 f or i <- 0 to \H\ - 3 



2 for m ^- 0 to \H[i\\ - 1 

3 for n 3 f-0to \H[i + 2]| - 1 

4 if H[i + 2] [n 3 ] [2] = (if [i] [m] [2] + 2) mod 7 

5 for n 2 <— 0 to \H[i + 1]| - 1 

6 if H[i + l][n 2 ][2] = J5T[t][m][2) or H[i + l][n 2 ][2] = + 2][n 3 ][2] 

7 if 0 < + 2][n 3 ][l] - H[i + l][n 2 ][l]) mod 12 < (H[i + 2][n 3 )[l] - H[i][m][l]) mod 12 

9 for j*-Oto + 1]| - 1 

10 if H [i + l][j][2] = (£T[t|[ni][2] + 1) mod 7 

11 c«-ce<Jf[i + i]M> 

12 0+-() 

13 for j'4-Oto |Ci - 1 

14 if H[t + l][n 2 ][l]^Cb1[l] 

is 0- e e<cb1> 

16 if 0 = <> 

17 + l][n 2 ][2] <- (ff [<J[nil[2] + 1) mod 7 



18 return H 



Figure 12: Algorithm for correcting ascending passing note errors. 
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1 C«-<) 

2 f or i <- 0 to \H\ - 1 

3 O' <- O' 0 tf[t] 

4 M'<-<) 

5 f or i <- 0 to |0'| - 1 

6 M'*-M'e<0'[z][2]> 

7 return M' 



Figure 13: Algorithm for computing M '. 
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1 


P«-<> 


2 


for i <- 0 to | J| - 1 


3 


°i«-LJM[i]/i2J 


4 


O2 1 + 01 


5 


o 3 4— Oi — 1 


6 


Pi «-0!+A#W 


7 


p 2 ^o 2 + M'[i]/7 


8 


P3^ 03 + M'[i]/7 


9 


c<- J[<][1] mod 12 


10 


j/ <-<>! + c/12 


11 


^-(|p / -Pi| 5 b , -P2|,b , -p 3 |> 


12 


a; (o lj 02,o 3 > 


13 


0 4- (^[POSCmin^),^)] 


14 


P < -P©(M / [i]+7o) 


15 


return P 



Figure 14: Algorithm for computing P. 
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PPN(p) 

1 m <— p[l] mod 7 

2 L <— ("A" , tt JS" , "C" , "£>" , , "F" , "G" ) 

3 I <- L[m] 

4 p c -p[0]-12(b[l]/7J) 

5 A 4— (0,2,3,5,7,8,10) 

6 c 7 <- A[m] 

7 e<r- 9c -(/ 

8 i <- "" 

9 if e < 0 

10 for j <— 0 to -e - 1 

11 i^-ie"f 

12 else 

13 if e > 0 

14 for jVOto e-1 

15 i <- i e "5" 

16 else 

17 i <- V 

18 o m 4- \p[l]/7\ 

19 if m = 0 or m = 1 

20 o*-o m 

21 else 

22 o <- 1 + o m 

23 o str <— STR(o) 

24 return I 0 i © o str 



Figure 15: PPN algorithm. 



